Top 10k strings from HiSoft Pascal 4T v1.6M (1984)(Ventamatic)(Side B)[re-release].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   8 SPOUT(CHR(20));SPOUT(CHR( PENSTATUS));SPOUT(CHR(21) );SPOUT(CHR(PENSTATUS));
   4 YCOR:=NEWY
   4 XCOR:=NEWX;
   4 XCOR,YCOR,HEADING:REAL;
   4 WRITE('Out of limits');
   4 TURTLE    
   4 SPOUT(CHR(17));SPOUT(CHR( 8));
   4 SPOUT(CHR(16));SPOUT(CHR( C))
   4 SETXY(127,87);
   4 PLOT(ROUND(XCOR),ROUND    (YCOR));
   4 PENSTATUS:INTEGER;
   4 PENSTATUS:=1
   4 PENSTATUS:=0;
   4 PENDOWN(6)
   4 NEWY:=YCOR+L*SIN(HEADING* 3.1415926/180);
   4 NEWX:=XCOR+L*COS(HEADING* 3.1415926/180);
   4 LINE1(ABS(X),ABS(Y),SGNX, SGNY)
   4 LINE(TRUE,ROUND(NEWX)     -ROUND(XCOR),ROUND(NEWY)- ROUND(YCOR));
   4 INLINE(1,0,3,#21,0,#58,   #DD,#7E,2,7,7,7,#5F,#7E,  #E6,#C7,#B3,#77,#23,#0B,
   4 INLINE(#FD,#21,#3A,#5C,   #DD,#7E,2,#D7)
   4 INLINE(#FD,#21,#3A,#5C,   #DD,#56,2,#DD,#5E,4,#DD,  #46,6,#DD,#4E,8,#CD,
   4 INLINE(#FD,#21,#3A,#5C,   #DD,#46,2,#DD,#4E,4,#CD,  #E5,#22)
   4 INLINE(#FD,#21,#3A,#5C,
   4 HEADING:=HEADING+A;
   4 HEADING:=A
   4 FWD(R); TURN(1)
   4 CHECK(X,Y);
   4 CHECK(ROUND(X+XCOR),      ROUND(Y+YCOR));
   4 #FD,#CB,#01,#CE,
   4 #CD,#AC,#0E,#FD,
   4 #CB,#01,#8E,#F3)
   4 #78,#B1,#20,#EE);
   4  VECTOR(A,L:REAL);
   4  TURN(A:REAL);
   4  SPOUT(C:CHAR);
   4  SGNY:=-1 
   4  SGNX:=-1 
   4  SGNX,SGNY:INTEGER;
   4  SETXY(X,Y:REAL);
   4  SETHD(A:REAL);
   4  RIGHT(A:REAL);
   4  PLOT(X,Y:INTEGER);
   4  PENDOWN(C:INTEGER);
   4  PAPER(C:INTEGER);
   4  NEWX,NEWY:REAL;
   4  LINE1(X,Y,SX,SY:INTEGER);
   4  LINE(ON:BOOLEAN;X,Y:INTEGER);
   4  LEFT(A:REAL);
   4  INK(C:INTEGER);
   4  I:INTEGER;
   4  FWD(L:REAL);
   4  CHECK(X,Y:INTEGER);
   4  BACK(L:REAL);
   4  ARCR(R:REAL; A:INTEGER);
   4     (Y>175) 
   1 Original Tape
   1 Hisoft Pascal (Side B)
   1 Hisoft / Ventamatic
   1 6Compilador de Pascal con control ampliado de graficos.